﻿Public Class UsuarioFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta del Usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta del Usuario"
    End Sub
End Class

Public Class UsuarioFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización del Usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización del Usuario"
    End Sub
End Class

Public Class UsuarioFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja del Usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja del Usuario"
    End Sub
End Class

Public Class UsuarioFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda del Usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda del Usuario"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class UsuarioFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Usuarios")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Usuarios"
    End Sub
End Class

Public Class UsuarioFalloConsultarPatentes
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Permisos del usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloConsultarPatentes
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Permisos del usuario"
    End Sub
End Class

Public Class UsuarioFalloAltaAcceso
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta del Acceso para el usuario actual")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloAltaAcceso
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta del Acceso para el usuario actual"
    End Sub
End Class

Public Class UsuarioFalloBajaAcceso
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja del Acceso para el usuario actual")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloBajaAcceso
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja del Acceso para el usuario actual"
    End Sub
End Class

Public Class UsuarioFalloLogon
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el acceso al sistema")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloLogon
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el acceso al sistema"
    End Sub
End Class

Public Class UsuarioEstadoBloquear
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error al bloquear el usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioEstadoBloquear
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error al bloquear el usuario"
    End Sub
End Class

Public Class UsuarioEstadoActivar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error al activar el usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioEstadoActivar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error al activar el usuario"
    End Sub
End Class

Public Class UsuarioFalloConsultaTieneAcceso
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error al verificar el permiso del usuario")
        Me.codigo = Utils.Enumeradores.Excepeciones.UsuarioFalloConsultaPermiso
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error al verificar el permiso del usuario"
        Me.innerException2 = innerException
    End Sub
End Class
